home *** CD-ROM | disk | FTP | other *** search
/ Mac100% 1999 April / MAC100-1999-04.ISO.7z / MAC100-1999-04.ISO / ｵﾝﾗｲﾝｿﾌﾄ定点観測 / Demo / MacToPic Plus 8.8.0 Demo.sea / MacToPic +™ Demo / Plus sample programs / MISC-FUNCTIONS.PROGRAM < prev    next >
Text File  |  1992-08-24  |  1KB  |  39 lines
  1. *  MISC.FUNCTIONS PROGRAM
  2. *  Requests MacToPic ID
  3. *  Turns caps lock on and off
  4. *  Clears message and function key displays
  5. *  Clears entire screen
  6. *
  7. *  MISC.FUNCTIONS PROGRAM sample written by Rich Love, Carnation Software 1990
  8. *  for use with MacToPic Plus
  9. *
  10. 001 PRINT @(-1)
  11. 002 PRINT"TEST THE MACTOPIC ID"
  12. 003 ECHO OFF
  13. 004 PRINT CHAR(27):"~A":;  *REQUEST MACTOPIC ID
  14. 005 PROMPT ""
  15. 006 INPUT A
  16. 007 ECHO ON
  17. 008 IF A="MacToPic+" THEN
  18. 009 PRINT"SAW MACTOPIC ID"
  19. 010 END ELSE
  20. 011 PRINT"DID NOT SEE MACTOPIC ID"
  21. 012 END
  22. 013 PRINT CHAR(27):"~B":;   *CAPS LOCK ON
  23. 014 PRINT"TURN CAPS LOCK OFF"
  24. 015 PRINT"TYPE SOMETHING AND NOTICE THAT CAPS LOCK IS ON"
  25. 016 PROMPT "?"
  26. 017 INPUT A
  27. 018 PRINT CHAR(27):"~C":;   *CAPS LOCK OFF
  28. 019 PRINT "NOW TYPE SOMETHING AND NOTICE THAT CAPS LOCK IS OFF"
  29. 020 INPUT A
  30. 021 PRINT "HIT CR TO CLEAR THE MESSAGE AND FKEY DISPLAYS"
  31. 022 PROMPT ""
  32. 023 INPUT A
  33. 024 PRINT CHAR(27):"~E":;  *CLEAR MESSAGE
  34. 025 PRINT CHAR(27):"~F":;  *CLEAR FKEY DISPLAY
  35. 026 PRINT"WE WILL NOW CLEAR THE ENTIRE SCREEN. HIT CR..."
  36. 027 INPUT A
  37. 028 PRINT CHAR(27):"~D":;  *CLEAR ENTIRE SCREEN
  38. 029 END
  39.